Workbench Design/WB Collection.iso/workbench werkzeuge/bildschirmschoner/auror15a/install

Text File | 1996-04-07 | 6KB | 274 lines

(set updateonly (exists "Aurora:Aurora" (noreq)))
(if updateonly
    (
        (set path
            (askdir
                (prompt "Where should the Aurora update be installed?")
                (help "Please select a location for Aurora.\n\nThis is where all updated Aurora files will be placed.")
                (default "Aurora:")
                (disk)
            )
        )
        (set auroradir path)
        (set @default-dest auroradir)
    )
    (
        (set path
            (askdir
                (prompt "Where should the Aurora directory be made?")
                (help "Please select a location for the Aurora directory.\n\nThis is where all Aurora related files will be placed.")
                (default "Work:")
                (disk)
            )
        )
        (set auroradir (tackon path "Aurora"))
        (set @default-dest auroradir)
        (makedir auroradir
            (infos)
        )
        (makeassign 'Aurora' auroradir)
    )
)
(set path
    (askdir
        (prompt "Please select a default image directory.")
        (help "Please select a default Aurora image directory.\n\nThis is where images will be loaded from in the event a required filename variable is not specified.")
        (default "RAM:")
        (disk)
    )
)
(set imagedir path)
(if (run "cpu >nil: check fpu" (safe))
    (
        (set defmods %111111011011011110)
    )
    (
        (set defmods %111111011101101110)
    )
)
(set moduleopts
    (askoptions
        (prompt "Which modules would you like selected by the 'Random' module?")
        (help "Aurora feature a module that randomly selects any other module.  Please specify which modules you would like included in this random selection process.")
        (choices "Arexx" "Aswarm" "Clock" "Cycle" "Julia" "JuliaFP" "Lines" "Mandelbrot" "MandelBrotFP" "Marquee" "Mystic" "Null" "Plasma" "Puzzle" "Raindrops" "Slideshow" "Squares" "Starfield")
        (default defmods)
    )
)
(set wbstart
    (askbool
        (prompt '\nWould you like the Aurora icon placed in your SYS:WBStartup drawer?')
        (help 'This automatically starts Aurora every time you reboot your system.')
        (choices "Yes" "No")
    )
)
(set ptreplay
    (askbool
        (prompt '\nWould you like ptreplay.library copied to your LIBS: drawer?')
        (help 'This enables Protracker .MOD support while Aurora is blanked.')
        (choices "Yes" "No")
    )
)
(makedir "Aurora:Data")
(makedir "Aurora:IFF")
(makedir "Aurora:Modules")
(makedir "Aurora:Rexx")
(copyfiles
    (source 'Aurora_Install:Libs')
    (dest 'Aurora:Libs')
    (all)
)
(copyfiles
    (source 'Aurora_Install:IFF')
    (dest 'Aurora:IFF')
    (all)
)
(copyfiles
    (source 'Aurora_Install:Modules')
    (dest 'Aurora:Modules')
    (all)
)
(copyfiles
    (source 'Aurora_Install:Data')
    (dest 'Aurora:Data')
    (all)
)
(textfile
    (dest "Aurora:Data/Random.list")
    (if (BITAND moduleopts %1)
        (append 'Arexx\n')
    )
    (if (BITAND moduleopts %10)
        (append 'Aswarm\n')
    )
    (if (BITAND moduleopts %100)
        (append 'Clock\n')
    )
    (if (BITAND moduleopts %1000)
        (append 'Cycle\n')
    )
    (if (BITAND moduleopts %10000)
        (append 'Julia\n')
    )
    (if (BITAND moduleopts %100000)
        (append 'JuliaFP\n')
    )
    (if (BITAND moduleopts %1000000)
        (append 'Lines\n')
    )
    (if (BITAND moduleopts %10000000)
        (append 'MandelBrot\n')
    )
    (if (BITAND moduleopts %100000000)
        (append 'MandelBrotFP\n')
    )
    (if (BITAND moduleopts %1000000000)
        (append 'Marquee\n')
    )
    (if (BITAND moduleopts %10000000000)
        (append 'Mystic\n')
    )
    (if (BITAND moduleopts %100000000000)
        (append 'Null\n')
    )
    (if (BITAND moduleopts %1000000000000)
        (append 'Plasma\n')
    )
    (if (BITAND moduleopts %10000000000000)
        (append 'Puzzle\n')
    )
    (if (BITAND moduleopts %100000000000000)
        (append 'RainDrops\n')
    )
    (if (BITAND moduleopts %1000000000000000)
        (append 'Slideshow\n')
    )
    (if (BITAND moduleopts %10000000000000000)
        (append 'Squares\n')
    )
    (if (BITAND moduleopts %100000000000000000)
        (append 'Starfield\n')
    )
    (append imagedir'\n')
    (safe)
)
(copyfiles
    (source 'Aurora_Install:')
    (dest 'Aurora:')
    (choices 'Aurora' 'Aurora.info' 'PrefEd')
)
(if wbstart
    (copyfiles
        (source 'Aurora_Install:')
        (dest 'Sys:WBStartup')
        (choices 'Aurora.info')
    )
    (set dummyvar 0)
)
(if ptreplay
    (copylib
        (source 'Aurora_Install:FreeWare/ptreplay.library')
        (dest 'LIBS:')
    )
    (set dummyvar 0)
)
(set opal (exists "OpalPaint:Loaders" (noreq)))
(if opal
    (
        (set opaldata
            (askbool
                (prompt '\nDo you want to install the OpalVision Datatypes loader?')
                (help 'This loader allows you to load any image supported by the datatypes.library')
                (choices "Yes" "No")
            )
        )
        (if opaldata
            (copyfiles
                (source 'Aurora_Install:Opal')
                (dest 'OpalPaint:Loaders')
                (all)
            )
            (set dummyvar 0)
        )
    )
    (set dummyvar 0)
)
(if updateonly
    (
        (if (exists "SYS:WBStartup/Aurora" (noreq))
            (
                (delete 'SYS:WBStartup/Aurora' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "Aurora:Drivers/Amiga_AGA" (noreq))
            (
                (delete 'Aurora:Drivers/Amiga_AGA' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "Aurora:Drivers/Amiga_ECS" (noreq))
            (
                (delete 'Aurora:Drivers/Amiga_ECS' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "Aurora:Drivers/OpalVision" (noreq))
            (
                (delete 'Aurora:Drivers/OpalVision' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "Aurora:Drivers" (noreq))
            (
                (delete 'Aurora:Drivers' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "LIBS:Aurora_Amiga_AGA.library" (noreq))
            (
                (delete 'LIBS:Aurora_Amiga_AGA.library' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "LIBS:Aurora_Amiga_ECS.library" (noreq))
            (
                (delete 'LIBS:Aurora_Amiga_ECS.library' force)
            )
            (
                (set dummyvar 0)
            )
        )
        (if (exists "LIBS:Aurora_OpalVision.library" (noreq))
            (
                (delete 'LIBS:Aurora_OpalVision.library' force)
            )
            (
                (set dummyvar 0)
            )
        )
    )
    (
        (startup @app-name
            (prompt "\nAurora needs to append your S:User-Startup file to include a required assign statement.")
            (help "This assignment is REQUIRED by Aurora.")
            (command "Assign Aurora: "auroradir"\n")
        )
    )
)
(set @execute-dir "Aurora:")
(run "Aurora:Aurora"
    (safe)
)